home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Workbench Design
/
WB Collection.iso
/
workbench werkzeuge
/
commoditys
/
bexchange10
/
install_english
< prev
next >
Wrap
Text File
|
1996-04-07
|
3KB
|
150 lines
;
; $VER: Installation de BGUI-Exchange v1.0 (28.5.1995)
;
; Installer script pour BGUI-Exchange.
;
(set UserLevel.old @user-level)
; Initialisation des messages.
(set Language 16)
(set #WrongKickStart "\nBGUI-Exchange ne fonctionne qu'avec un KickStart >= à 2.04.")
; S'assurer que l'on utilise un KickStart >= à 2.04.
(if (< (/ (getversion) 65536) 37)
(abort #WrongKickStart)
)
(set LangueHelp "Select in which language you want the documentation.")
(set IconHelp "What kind of icons do you want:\n\n- 4 colors: Standards icons\n- 8 colors MagicWB : Standard MagicWB\n- NewIcon : Standard NewIcon")
(set bguiHelp "The bgui.library make easier the creation of GUI, and produce nicer GUI.\n\nbgui.library (C) 1993-1995 Jan van den Baard")
;
; Répertoire de destination
; *************************
;
(set Path.source (pathonly @icon) )
(set Path.dest
(askdir
(prompt "\nSelect or create a directory to install BGUI-Exchange.\n")
(help @askdir-help)
(default "Sys:Tools/Commodities")
)
)
; Copie de l'executable
; **********************
(copyfiles
(prompt "Copy of BGUI-Exchange")
(help @copyfiles-help)
(source Path.source)
(dest Path.dest)
(choices "BGUI-Exchange" "BGUI-Exchange.info")
)
; Copie de la documentation
; *************************
(set Doc (askchoice
(prompt "Documentation of BGUI-Exchange")
(choices "Frensh" "English")
(help LangueHelp)
(default 1)
)
)
(if (= Doc 0)
(copyfiles
(source "BGUI-Exchange_FR.guide")
(dest Path.dest)
(newname "BGUI-Exchange.guide")
(infos)
)
)
(if (= Doc 1)
(copyfiles
(source "BGUI-Exchange_ENG.guide")
(dest Path.dest)
(newname "BGUI-Exchange.guide")
(infos)
)
)
; On copie les icônes
; *******************
(set Icon (askchoice
(prompt "What sort of icons do you want ?")
(choices "4 couleurs" "MagicWB" "NewIcon")
(help IconHelp)
)
)
; MagicWB ?
; *********
(if (= Icon 1)
(
(copyfiles
(source "Icons/EXE_MagicWb.info")
(dest Path.dest)
(newname "BGUI-Exchange.info")
)
(copyfiles
(source "Icons/Guide_MagicWb.info")
(dest Path.dest)
(newname "BGUI-Exchange.guide.info")
)
)
)
; NewIcon ?
; *********
(if (= Icon 2)
(
(copyfiles
(source "Icons/EXE_NewIcon.info")
(dest Path.dest)
(newname "BGUI-Exchange.info")
)
(copyfiles
(source "Icons/Guide_NewIcon.info")
(dest Path.dest)
(newname "BGUI-Exchange.guide.info")
)
)
)
; Copie de la bgui.library
; ************************
(copylib
(prompt "Copy of the bgui.library")
(source "libs/bgui.library")
(dest "Libs:")
(help bguiHelp)
(confirm)
)
(set @default-dest Path.dest )
(exit)